home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / rakit1.zip / RA-QUES.ZIP / WANTCHAT.Q-A < prev   
Text File  |  1990-08-18  |  1KB  |  64 lines
  1. clearscreen
  2. changecolor 9 0
  3. Display "Please Enter a reason to chat with the Sysop.|"
  4. Display "Enter up to three lines of text, 65 characters per line.|"
  5.  
  6. Changecolor 7 0
  7. Display "|   .................................................................|"
  8. Changecolor 5 0 
  9. Display "1: "
  10. Changecolor 2 0
  11. Ask 65 1
  12.  
  13. Changecolor 5 0
  14. Display "2: "
  15. Changecolor 2 0
  16. Ask 65 2
  17.  
  18. Changecolor 5 0
  19. Display "3: "
  20. Changecolor 2 0
  21. Ask 65 3
  22. Changecolor 7 0
  23. Display "   .................................................................|"
  24.  
  25. if 1 = ""
  26. Changecolor 12 0
  27. Display "| Thats not a very good reason!||"
  28. Changecolor 5 0
  29. Display "Press [Enter] To Continue:"
  30. Ask 1 1
  31. Setflag a7 On
  32. Quit
  33. Endif
  34.  
  35. Changecolor 9 0
  36. Display "||Is this your reason for Chatting? [Y/N]"
  37. Getchoice YN 4
  38.  
  39. IF 4 = "N"
  40. Display "||Returning to System..||"
  41. Changecolor 5 0
  42. Display "Press ["
  43. changecolor 12 0
  44. Display "Enter"
  45. Changecolor 5 0
  46. Display "] To Continue:"
  47. Ask 1 1
  48. Quit
  49. Endif
  50.  
  51. PostInfo
  52. Outputanswer "  " 1
  53.  If 2 = ""
  54.  Quit
  55.  Endif
  56. Outputanswer "  " 2
  57.  If 3 = ""
  58.  Quit
  59.  Endif
  60. Outputanswer "  " 3
  61. QUIT
  62. 
  63.  
  64.